Namespace Core
  Public Class NotifyEventArgs
    Inherits EventArgs

    Private mMessage As String

    Sub New(ByVal message As String)
      mMessage = message
    End Sub

    ReadOnly Property Message() As String
      Get
        Return mMessage
      End Get
    End Property
  End Class
End Namespace